(deftemplate Degustare
    (slot mancare)
    (slot vin))

(assert(Degustare(mancare Carne_vita)(vin rosu_sec)))

(assert(Degustare(mancare Carne_miel)(vin rosu_dulce)))

(assert(Degustare(mancare Carne_porc)(vin alb_sec)))

(assert(Degustare(mancare Carne_curcan)(vin alb_demisec)))

(assert(Degustare(mancare Carne_pui)(vin alb_dulce)))

(assert(Degustare(mancare Tocanita_ficatei)(vin alb_dulce)))

(assert(Degustare(mancare Spaghete_carbonara)(vin rosu_dulce)))

(assert(Degustare(mancare Salate)(vin rosu_dulce)))

(facts)



(defrule regula1
    (Degustare(mancare ?x)(vin ?y))
    =>
     (printout t "La:" ?x " se recomanda vinul: " ?y crlf)
    )

(run)